home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z7.d64 / proc.directory < prev    next >
Text File  |  2009-01-03  |  2KB  |  66 lines
  1. 0500 ╨╥╧├ GETñDIRECTORY(DRIVE$) 
  2. 0510   DR:=╓┴╠(DRIVE$(1:╠┼╬(DRIVE$)-1))
  3. 0520   ╧╨┼╬ ╞╔╠┼ CAT,"U"+╙╘╥$(DR ─╔╓ 2+8)+":$"+╙╘╥$(DR ═╧─ 2)+"/S+/T+/D+"
  4. 0530   SKIPñBAM
  5. 0540   ENTRY:=1
  6. 0550   ENTRYñNO:=0
  7. 0560   ╫╚╔╠┼ ╬╧╘ ┼╧╞(CAT) ─╧
  8. 0570     ENTRYñNO:+1
  9. 0580     FILEñTYPE#(ENTRY):=BYTE ═╧─ 8
  10. 0590     ├┴╙┼ FILEñTYPE#(ENTRY) ╧╞
  11. 0600     ╫╚┼╬ SEQñFILE,PRGñFILE,USRñFILE,RELñFILE
  12. 0610       SKIP$:=╟┼╘$(CAT,2)
  13. 0620       NAME$:=╟┼╘$(CAT,16)+├╚╥$(160)
  14. 0630       NAMES$(ENTRY):=NAME$(1:(├╚╥$(160) ╔╬ NAME$)-1)
  15. 0640       NAME$:=NAMES$(ENTRY)+╙╨├$(16)
  16. 0650       TITLE$(ENTRY):=NAME$(1:17)+TYPE$(FILEñTYPE#(ENTRY))
  17. 0660       SKIP$:=╟┼╘$(CAT,2)
  18. 0670       RECñLEN#(ENTRY):=BYTE
  19. 0680       SKIP$:=╟┼╘$(CAT,6)
  20. 0690       FILEñLENGTH#(ENTRY):=BYTE+BYTE*256
  21. 0700       ENTRY:+1
  22. 0710     ╧╘╚┼╥╫╔╙┼ 
  23. 0720       SKIP$:=╟┼╘$(CAT,29)
  24. 0730     ┼╬─├┴╙┼ 
  25. 0740     ╔╞ ENTRYñNO ═╧─ 8 ╘╚┼╬ SKIP$:=╟┼╘$(CAT,2)
  26. 0750   ┼╬─╫╚╔╠┼ 
  27. 0760   NOñOFñENTRIES:=ENTRY-1
  28. 0770   ├╠╧╙┼ ╞╔╠┼ CAT
  29. 0780   
  30. 0790   
  31. 0800   ╨╥╧├ SKIPñBAM 
  32. 0810     DIRñTYPE:=BYTE
  33. 0820     ├┴╙┼ DIRñTYPE ╧╞
  34. 0830     ╫╚┼╬ 1 //  2040/3040
  35. 0840       MODEL:=3040
  36. 0850       SKIP$:=╟┼╘$(CAT,141)
  37. 0860       DIRñNAME$:=""""+╟┼╘$(CAT,16)+""" "+╟┼╘$(CAT,2)+" 1"
  38. 0870       SKIP$:=╟┼╘$(CAT,94)
  39. 0880     ╫╚┼╬ 65 // 4040
  40. 0890       MODEL:=4040
  41. 0900       SKIP$:=╟┼╘$(CAT,141)
  42. 0910       DIRñNAME$:=""""+╟┼╘$(CAT,16)+""" "+╟┼╘$(CAT,7)
  43. 0920       SKIP$:=╟┼╘$(CAT,89)
  44. 0930     ╫╚┼╬ 67 // 8050/8250
  45. 0940       MODEL:=8050
  46. 0950       SKIP$:=╟┼╘$(CAT,3)
  47. 0960       DIRñNAME$:=""""+╟┼╘$(CAT,16)+""""+╟┼╘$(CAT,7)
  48. 0970       SKIP$:=╟┼╘$(CAT,227)
  49. 0980       ╥┼╨┼┴╘ 
  50. 0990         SKIP$:=╟┼╘$(CAT,2)
  51. 1000         TRACKS:=-(╧╥─(╟┼╘$(CAT,1))-╧╥─(╟┼╘$(CAT,1)))
  52. 1010         SKIP$:=╟┼╘$(CAT,250)
  53. 1020       ╒╬╘╔╠ TRACKS<50
  54. 1030     ╧╘╚┼╥╫╔╙┼ 
  55. 1040       ╨┴╟┼
  56. 1050       ├╠╧╙┼ ╞╔╠┼ CAT
  57. 1060       ╨╥╔╬╘ "─ON'T KNOW MODEL OF SOURCE DISK."
  58. 1070       ┼╬─ "END OF COPY"
  59. 1080     ┼╬─├┴╙┼ 
  60. 1090   ┼╬─╨╥╧├ SKIPñBAM
  61. 1100   
  62. 1110   ╞╒╬├ BYTE 
  63. 1120     ╥┼╘╒╥╬ ╧╥─(╟┼╘$(CAT,1))
  64. 1130   ┼╬─╞╒╬├ BYTE
  65. 1140 ┼╬─╨╥╧├ GETñDIRECTORY
  66.